home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / rcheck.arc / BUDCATDT.CMD < prev    next >
Encoding:
Text File  |  1984-12-18  |  640 b   |  21 lines
  1. IF MAIN NE 3 THEN
  2.    NEWPAGE
  3.    TYPE b:BUDCATDT.MNU
  4.    FILLIN BEGDAT USING "ENTER STARTING DATE  "  AT  6 20
  5.    FILLIN ENDDAT USING "ENTER ENDING DATE    "  AT 12 20
  6. ENDIF
  7. IF MAIN = 3 THEN
  8.    TYPE b:BUDCATDT.MNU
  9.    FILLIN BEGDAT USING "ENTER STARTING DATE  " AT 10 20
  10.    FILLIN ENDDAT USING "ENTER ENDING DATE    " AT 16 20
  11. ENDIF
  12. NEW
  13. SET VAR BEG = "BEGINNING DATE TO BE USED = "
  14. SET VAR END = "ENDING DATE TO BE USED =    "
  15. SHOW VAR BEG AT 2 10
  16. SHOW VAR END AT 7 10
  17. SHOW VAR BEGDAT AT 2 50
  18. SHOW VAR ENDDAT AT 7 50
  19. FILLIN MAIN USING "PRESS [ENTER] TO CONTINUE" AT 20 20
  20.  
  21.